Unit
lmdformA

Declaration

TLMDSizingChangeEvent = procedure(Sender:TObject;xsize, ysize, flag:Word) of object;